Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
StampElems
Alloc
21 Jul 94
Syntax10b.Scn.Fnt
MODULE Configuration;	(** SHML/CN, 
	IMPORT Display, Input, Viewers, Cmd;
	PROCEDURE Break(): BOOLEAN;
		VAR keys: SET; x, y: INTEGER;
	BEGIN
		Input.Mouse(keys, x, y);
		RETURN keys # {}
	END Break;
	PROCEDURE Init*;	(* Do initialization script *)
		VAR v: Viewers.Viewer; res: INTEGER;
	BEGIN
		Display.SetColor(Display.black,200,200,200);
		Display.SetColor(Display.white,0,0,0);
		IF Break() THEN RETURN END;
		Cmd.Call("Log.Open", "", res);
		Cmd.Call("XE.SysOpen", "System", res);
		Cmd.Call("XE.SysOpen", "My", res);
		Cmd.Call("Installer.Start", "", res);
		Cmd.Call("Doc.Install", "XE.Open *", res);
		Cmd.Call("Doc.Install", "XE.Open Mod", res);
		Cmd.Call("Doc.Install", "XE.Open Text", res);
		Cmd.Call("Doc.Install", "XE.SysOpen Tool", res);
		Cmd.Call("Doc.Install", "Draw.Open Graph", res);
		Cmd.Call("Doc.Install", "Browser.ShowDef Sym", res);
		Cmd.Call("Doc.Install", "Paint.Open Pict", res);
		Cmd.Call("Doc.Install", "Disassembler.Disassemble Obj", res);
	END Init;
BEGIN Init
END Configuration.
Cmd.Pick *